home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
tppcx.zip
/
EGA.INT
< prev
next >
Wrap
Text File
|
1991-01-28
|
1KB
|
30 lines
{══════════════════════════════════════════════════════════════════════════╗
║ MDRUtils/Mark D.Rafn [71530,2307] ║
║ Rt1 Box138A ║
║ Two Harbors, MN 55616 ║
║ 218-834-5154 ║
║ ║
║ Unit for programming the EGA graphics adapter. ║
║ Must be in graphics mode. ║
╚══════════════════════════════════════════════════════════════════════════}
{$D-,R-,S-}
unit EGA;
interface
uses Graph;
const
EGACard: boolean = false;
VGACard: boolean = false;
EGA_Pal: PaletteType = (
Size: 16;
Colors: (0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15) );
procedure EGA_SetPlane_Write( plane: byte );
procedure EGA_SetPlane_Read( Plane: byte );
procedure EGA_Reset_Write;
procedure EGA_Reset_Read;
procedure EGA_ResetPalette;
procedure EGA_SetRGBPalette( cn, red, green, blue: integer );
implementation